home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / tool_inc.zip / STRUTIL.INC < prev    next >
Text File  |  1989-06-02  |  857b  |  40 lines

  1.  
  2. (*
  3.  * Copyright 1987, 1989 Samuel H. Smith;  All rights reserved
  4.  *
  5.  * This is a component of the ProDoor System.
  6.  * Do not distribute modified versions without my permission.
  7.  * Do not remove or alter this notice or any other copyright notice.
  8.  * If you use this in your own program you must distribute source code.
  9.  * Do not use any of this in a commercial product.
  10.  *
  11.  *)
  12.  
  13. function len(var s: longstring): integer; 
  14. begin
  15.    len := ord(s[0]); 
  16. end;
  17.  
  18. (**
  19. procedure concat_char(var s: longstring; c: char);
  20. begin
  21.    inc(s[0]);
  22.    s[ord(s[0])] := c;
  23. end;
  24. procedure concat_str(var s: longstring; var s2: longstring);
  25. begin
  26.    s := s + s2;
  27. end;
  28. ***)
  29.  
  30. function lastchar(var s: longstring): char;
  31. begin
  32.    lastchar := s[ord(s[0])];
  33. end;
  34.  
  35. procedure copy_str(var s: longstring; var s2: longstring);
  36. begin
  37.    s := s2;
  38. end;
  39.  
  40.